
 1000  *SAVE S.RAMFILL RBSC
 1010  *--------------------------------
 1020         .OR $800
 1030  MOVER  LDY #LENGTH       MOVE "FILLER" PROGRAM
 1040  .1     LDA MY.FILLER,Y   TO EXECUTION AREA
 1050         STA FILLER,Y      AT $100...
 1060         DEY
 1070         BPL .1
 1080         JMP FILLER        NOW START FILLING!
 1090  *--------------------------------
 1100  *    FOLLOWING CODE EXECUTES AT $100...
 1110  *--------------------------------
 1120  MY.FILLER .PH $100
 1130  FILLER
 1140  .1     LDA $C000    WAIT UNTIL "0" TYPED
 1150         CMP #$B0     ($B0 IS ALSO BCS OPCODE)
 1160         BNE .1
 1170  *---FILL $200-$BFFF--------------
 1180         LDY #0
 1190         STY 0
 1200         LDA #2
 1210         STA 1
 1220         LDA #$48     PHA OPCODE
 1230  .2     STA (0),Y
 1240         INY
 1250         BNE .2
 1260         INC 1
 1270         LDX 1
 1280         CPX #$C0     UNTIL $BFFF
 1290         BCC .2
 1300  *---FILL PAGE ZERO---------------
 1310  .3     STA 0,Y
 1320         INY
 1330         BNE .3
 1340  *---FILL PAGE ONE----------------
 1350         JMP $200
 1360  LENGTH .EQ *-FILLER
 1370         .EP
 1380  *--------------------------------

